home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / fiflb382.lha / tag.S < prev    next >
Text File  |  1996-05-07  |  2KB  |  111 lines
  1. |    TAG.S for GNU-AS
  2. |    For comments, see TAG.A
  3. |    ATTENTION: pc@(label) generates non-68000 code in some gas
  4.  
  5. #ifdef USE_PC_REL
  6. #define PC_REL(a) pc@(a)
  7. #else
  8. #define PC_REL(a) a
  9. #endif
  10.  
  11. .text
  12.     moveq #-1,d0
  13.     rts
  14.  
  15. .globl _LibName
  16. .globl _LibId
  17. .globl _Vectors
  18.  
  19. InitDesc:
  20.     .short 0x4afc
  21.     .long InitDesc
  22.     .long EndCode    | __etext might also be used (provided by linker)
  23.     .byte 0
  24.     .byte 38
  25.     .byte 9
  26.     .byte 0
  27.     .long _LibName
  28.     .long _LibId
  29.     .long Init
  30.  
  31. _LibName:
  32.     .ascii "fifo.library\0"
  33. _LibId:
  34.     .ascii "fifo.library 38.2 (8.5.96)\15\12\0"
  35.  
  36. _Vectors:
  37.     .long ALibOpen,     ALibClose, ALibExpunge, 0
  38.     .long AOpenFifo, ACloseFifo
  39.     .long AReadFifo, AWriteFifo
  40.     .long ARequestFifo, ABufSizeFifo
  41.     .long -1
  42.  
  43.     .even
  44. Init:
  45.     movel a0,sp@-
  46.     jbsr PC_REL(_LibInit)
  47.     addqw #4,sp
  48.     rts
  49.  
  50. ALibOpen:
  51.     movel a6,sp@-
  52.     movel d0,sp@-
  53.     jbsr PC_REL(_LibOpen)
  54.     addqw #8,sp
  55.     rts
  56.  
  57. ALibClose:
  58.     movel a6,sp@-
  59.     movel d0,sp@-
  60.     jbsr PC_REL(_LibClose)
  61.     addqw #8,sp
  62.     rts
  63.  
  64. ALibExpunge:
  65.     movel a6,sp@-
  66.     movel d0,sp@-
  67.     jbsr PC_REL(_LibExpunge)
  68.     addqw #8,sp
  69.     rts
  70.  
  71. AOpenFifo:
  72.     moveml d0/d1/a0,sp@-
  73.     jbsr PC_REL(_OpenFifo)
  74.     addw #12,sp
  75.     rts
  76.  
  77. ACloseFifo:
  78.     movel d1,sp@-
  79.     movel d0,sp@-
  80.     jbsr PC_REL(_CloseFifo)
  81.     addqw #8,sp
  82.     rts
  83.  
  84. AReadFifo:
  85.     moveml d0/d1/a0,sp@-
  86.     jbsr PC_REL(_ReadFifo)
  87.     addw #12,sp
  88.     rts
  89.  
  90. AWriteFifo:
  91.     moveml d0/d1/a0,sp@-
  92.     jbsr PC_REL(_WriteFifo)
  93.     addw #12,sp
  94.     rts
  95.  
  96. ARequestFifo:
  97.     moveml d0/d1/a0,sp@-
  98.     jbsr PC_REL(_RequestFifo)
  99.     addw #12,sp
  100.     rts
  101.  
  102. ABufSizeFifo:
  103.     movel d0,sp@-
  104.     jbsr PC_REL(_BufSizeFifo)
  105.     addw #4,sp
  106.     rts
  107.  
  108. | _BitTestSet is inlined with GCC
  109.  
  110. EndCode:
  111.